home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / e_os208 / exampl12 / eosc.pas < prev   
Pascal/Delphi Source File  |  1996-08-01  |  2KB  |  52 lines
  1.  
  2. {$m 8096,0,2048}
  3.  
  4. uses dos;
  5.  
  6. var
  7.    p    : dirstr;
  8.    f    : namestr;
  9.    e    : extstr;
  10.  
  11. begin
  12.     writeln ('E.O.S. compiler v1.0 [wlk/abc]');
  13.     if paramstr(1)='' then begin
  14.                                 writeln ('eosc <filename> -param ');
  15.                                 writeln ('   -n normal compile with no music');
  16.                                 writeln ('   -m with da music compiling');
  17.                                 writeln ('   -d with da debugger compiler ');
  18.                                 halt(0);
  19.                            end;
  20.     fsplit (paramstr(1),p,f,e);
  21.     if paramstr(2)='-n' then
  22.        begin
  23.                 SwapVectors;
  24.                 exec ('c:\ta\tasm.exe',f+'.asm');
  25.                 exec ('c:\ta\tlink.exe','..\resource\kernel ..\resource\eoslite '+f+','+f+' /3/x');
  26.                 SwapVectors;
  27.        end else
  28.     if paramstr(2)='-m' then
  29.        begin
  30.                 SwapVectors;
  31.                 exec ('c:\ta\tasm.exe',f+'.asm');
  32.                 exec ('c:\ta\tlink.exe','..\resource\kernel ..\resource\eos ..\resource\diamond '+f+','+f+' /3/x');
  33.                 SwapVectors;
  34.        end else
  35.     if paramstr(2)='-d' then
  36.        begin
  37.                 SwapVectors;
  38.                 exec ('c:\ta\tasm.exe',f+'.asm');
  39.                 exec ('c:\ta\tlink.exe','..\resource\kernel ..\resource\eoslite ..\resource\debug '+f+','+f+' /3/x');
  40.                 SwapVectors;
  41.        end else
  42.     if paramstr(2)='' then
  43.        begin
  44.                 SwapVectors;
  45.                 exec ('c:\ta\tasm.exe',f+'.asm');
  46.                 exec ('c:\ta\tlink.exe','..\resource\kernel ..\resource\eoslite '+f+','+f+' /3/x');
  47.                 SwapVectors;
  48.        end;
  49. end.
  50.  
  51.  
  52.